10 PRINT"[147]":FORA=49152TO49195:READB:POKEA,B:NEXT:POKE2,.:POKE792,.:POKE793,192
20 POKE56580,100:POKE56581,1:POKE56582,.:POKE56583,.
30 POKE56589,130:POKE56590,17:POKE56591,81
40 DATA 72,138,72,152,72,164,2,200,192,16,208,2,160,0,132,2,185,28,192,141,32
50 DATA 208,141,33,208,76,81,254
60 END:REM COLORS
80 DATA 6,14,3,5,13,7,10,8,2,0,0,0,0,0,0,0
100 PRINT"[147]":POKE56580,101:POKE56581,1:POK56582,2
110 FORA=90TO109STEP.1:POKE56580,A:NEXT:FORA=109TO90STEP-.1:POKE56580,A:NEXT